home *** CD-ROM | disk | FTP | other *** search
/ Space Shuttle - The First 100 Flights / Space Shuttle - The First 100 Flights.iso / trivia.dir / 00019_Script_19 < prev    next >
Text File  |  2000-11-09  |  2KB  |  54 lines
  1. on enterFrame me
  2.   
  3.   global gTheAnswer, gCorrect
  4.   
  5.   repeat with n = 24 to 27
  6.     set the blend of sprite n to 0
  7.     set the blend of sprite n+4 to 0
  8.   end repeat
  9.   
  10.   set the puppet of sprite 20 to false
  11.   updatestage
  12.   
  13.   set the puppet of sprite 20 to true
  14.   set the memberNum of sprite 20 to 40
  15.   
  16.   set the blend of sprite (27+(integer(gTheAnswer))) to 100
  17.   set the blend of sprite (23+(integer(gTheAnswer))) to 100
  18.   set the blend of sprite (27+(integer(gCorrect))) to 100
  19.   
  20.   if gTheAnswer = "" then
  21.     set the visible of sprite 17 to true
  22.     set the visible of sprite 18 to false
  23.     puppetSound 2, 43
  24.     
  25.   else
  26.     
  27.     global nogo
  28.     if nogo = "false" then
  29.       if gTheAnswer <> gCorrect then
  30.         set the visible of sprite 17 to true
  31.         set the visible of sprite 18 to false
  32.         set the forecolor of sprite (23+(integer(gTheAnswer))) to 6
  33.         set the forecolor of sprite (23+(integer(gCorrect))) to 160
  34.         set the ink of sprite (23+(integer(gTheAnswer))) to 0
  35.         set the ink of sprite (23+(integer(gCorrect))) to 0
  36.         puppetSound 2, 43
  37.       else if gTheAnswer = gCorrect then
  38.         set the visible of sprite 18 to true
  39.         set the visible of sprite 17 to false
  40.         set the forecolor of sprite (23+(integer(gTheAnswer))) to 160
  41.         set the ink of sprite (23+(integer(gTheAnswer))) to 0
  42.         puppetSound 2, 44
  43.       end if
  44.     end if
  45.     
  46.   end if
  47.   
  48.   global Ticker
  49.   
  50.   Ticker = 0
  51.   
  52.   startTimer
  53.   
  54. end